Public Class SitemapUrl

    'This is a sitemapURL Object represents sitemap node
    'Ian Lintner
    'License: GPLv3 http://www.gnu.org/licenses/gpl-3.0.html
    '7/15/2008

    Public Sub New()

    End Sub

    Public Sub New(ByVal Location As String)
        Me.Location = Location
    End Sub

    Public Sub New(ByVal Location As String, ByVal Modified As DateTime)
        Me.Location = Location
        Me.LastUpdated = Modified
    End Sub

    Public Sub New(ByVal Location As String, ByVal Modified As DateTime, ByVal Priority As Double)
        Me.Location = Location
        Me.LastUpdated = Modified
        Me.Priority = Priority
    End Sub

    Public Sub New(ByVal Location As String, ByVal Modified As DateTime, ByVal UpdateFrequency As String)
        Me.Location = Location
        Me.LastUpdated = Modified
        Me.UpdateFrequency = UpdateFrequency
    End Sub

    Public Sub New(ByVal Location As String, ByVal Modified As DateTime, ByVal Priority As Double, ByVal UpdateFrequency As String)
        Me.Location = Location
        Me.LastUpdated = Modified
        Me.Priority = Priority
        Me.UpdateFrequency = UpdateFrequency
    End Sub

    Public Property Location() As String
        Get
            Return _Location
        End Get
        Set(ByVal value As String)
            _Location = value
        End Set
    End Property

    Protected _Location As String

    Public Property LastUpdated() As DateTime
        Get
            Return _LastUpdated
        End Get
        Set(ByVal value As DateTime)
            _LastUpdated = value
        End Set
    End Property

    Protected _LastUpdated As DateTime

    Public Property Priority() As Double
        Get
            Return _Priority
        End Get
        Set(ByVal value As Double)
            _Priority = value
        End Set
    End Property

    Protected _Priority As Double = -1.0

    Public Property UpdateFrequency() As String
        Get
            Return _UpdateFrequency
        End Get
        Set(ByVal value As String)
            _UpdateFrequency = value
        End Set
    End Property

    Protected _UpdateFrequency As String

End Class

